home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 1995 #5 & #6 / Amiga Plus CD - 1995 - No. 5 and 6.iso / tex / mf / inputs / test / slant.mf < prev    next >
Text File  |  1993-11-28  |  929b  |  33 lines
  1. % more-or-less general slant font generator for GFtoDVI
  2.  
  3. % the calling file should set the font_identifier and
  4. %    n = number of characters
  5. %    s = slant ratio
  6. %    r# = rule thickness (in sharp units)
  7. %    u = vertical unit (in pixels)
  8.  
  9. if unknown mag: mag := 1;
  10. elseif (mag<1) or (mag<>floor mag):
  11.  errmessage "Sorry, mag must be a positive integer"; mag := 1; fi
  12.  
  13. mg := mag; mag := 1; mode_setup; u# := u*72.27/pixels_per_inch;
  14. pixels_per_inch := pixels_per_inch*mg; fix_units;
  15.  
  16. define_whole_pixels(u); define_blacker_pixels(r);
  17. pickup pencircle scaled r; ruler := savepen;
  18.  
  19. for k=1 upto n:
  20.  beginchar(k,k*u#*s,n*u#,0);
  21.  pickup ruler; draw origin--(k*u*s,k*u);
  22.  unfill (lft-1,bot -1)--(rt 1,bot -1)
  23.   --(rt 1,0)--(lft-1,0)--cycle;
  24.  unfill ((lft -1,0)--(rt 1,0)
  25.   --(rt 1,top 1)--(lft -1,top 1)--cycle) shifted (k*u*s,k*u);
  26.  endchar; endfor
  27.  
  28. font_size 16pt#;
  29. font_slant s;
  30. fontdimen 8: r#;
  31. font_coding_scheme "GFSLANT";
  32. bye.
  33.